home *** CD-ROM | disk | FTP | other *** search
/ 3D GFX / 3D GFX.iso / pcutils / os2 / pmi_cat / pmic-del.cmd < prev    next >
OS/2 REXX Batch file  |  1995-12-30  |  2KB  |  63 lines
  1. /*                                                                          */
  2. /* PM I-Cat                                                                */
  3. /*                                                                          */
  4. /* External Tool: FILE DELETE                                               */
  5. /* Copyright BinK Enterprises 1994.                                         */
  6. /*                                                                          */
  7.  
  8. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  9. call SysLoadFuncs
  10.  
  11. arg targetfilename .
  12.  
  13. if targetfilename = '' then do;
  14.    say
  15.    say 'PMIC-DEL will delete the file whose name is supplied as a command-line'
  16.    say 'argument after prompting the user for confirmation.'
  17.    say
  18.    say 'Syntax: PMIC-DEL filename.ext'
  19.    say
  20.  
  21.    exit 1;
  22. end;
  23.  
  24. '@ECHO OFF'
  25.  
  26. say 'FILE DELETE PROGRAM'
  27. say
  28. say targetfilename
  29. say
  30. say 'Do you want to delete this file? (Y/N)'
  31.  
  32. pull yesnoresponse .
  33.  
  34. if yesnoresponse = 'Y' then do;
  35.    'DEL' targetfilename '2>NUL';
  36.  
  37.    select
  38.       when rc = 0 then do;
  39.          say
  40.          say 'The file was deleted successfully.'
  41.       end;
  42.       when rc = 1 then do;
  43.          say
  44.          say 'The file could not be found; it was not deleted.'
  45.       end;
  46.       otherwise do;
  47.          say
  48.          say 'The file could not be deleted, OS/2 return code =' rc'.'
  49.       end;
  50.    end;
  51. end;
  52. else do;
  53.    say
  54.    say 'The file was not deleted.'
  55. end;
  56.  
  57. say
  58. say 'Press the Enter key to close this window...'
  59.  
  60. pull .
  61.  
  62. exit 0;
  63.